﻿Class Window1 

    Private Sub btnDetails_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
        Me.bdrForm.Visibility = Windows.Visibility.Visible
        Me.bdrForm.DataContext = CType(e.Source, Button).DataContext

    End Sub

    Private Sub btnHide_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
        Me.bdrForm.Visibility = Windows.Visibility.Collapsed
        Me.bdrForm.DataContext = Nothing
        Me.clmForm.Width = New GridLength(0, GridUnitType.Auto)
    End Sub
End Class
